use Test::Simple tests => 2;

use SI::Person;


sub find_by_name {
    my  $name = shift;
    my $p = SI::Person->new;
    $p->sn($p->find_sn('name',$name)->[0]);
    my $b = $p->get_base();
}


sub find_by_id {
    my $id = shift;
    my $p = SI::Person->new;
    $p->sn($p->find_sn('id',$id)->[0]);
    my $b = $p->get_base();
}



ok( find_by_name('李广福')->name eq '李广福', 'find_by_name() ok!');

ok( find_by_id('411302198310203835')->id eq '411302198310203835', 'find_by_id() ok!')
